; ; ; ; ; ; ; ; ; ; ; ; ;
;icq simulator by Renz0!
;thank`z:
        : you by use my addon..
        : : : : : : : : : : : : : :

on *:load:{ echo /ircq p/ carregar o meu addon de IRCQ.. }
alias ircq dialog -m ircq ircq
on ircq:notify:{ set %enab.ircq $addtok(%enab.ircq,$nick,32) | set %disab.icq $remtok(%disab.icq,$nick,32) | if ($dialog(ircq)) { icqn | icqn2 | h } | dialog -m ircq ircq | icqn | icqn2 }
on ircq:unotify:{ set %enab.ircq $remtok(%enab.ircq,$nick,32) | set %disab.icq $addtok(%disab.icq,$nick,32) | if ($dialog(ircq)) { icqn | icqn2 | h } | dialog -m ircq ircq | icqn | icqn2 }
alias icqn { did -r ircq 6 | set %temp 1 | :i | if ($gettok(%enab.ircq,%temp,32)) { did -a ircq 6 $ifmatch | inc %temp | goto i } }
alias icqn2 { did -r ircq 12 | set %temp 1 | :i | if ($gettok(%disab.icq,%temp,32)) { did -a ircq 12 $ifmatch | inc %temp | goto i } }
alias inicio { did -r ircq 18 | set %temp 1 | :i | if ($gettok(%ircq.nicks,%temp,32)) { did -a ircq 18 $ifmatch | inc %temp | goto i } }
alias iniciodisc { if ($server == $null) { did -r ircq 12 | set %temp 1 | :i | if ($gettok(%ircq.nicks,%temp,32))  { did -a ircq 12 $ifmatch | inc %temp | goto i } } }
alias add.ircq set %add.nick $$?="nick to add?" | set %ircq.nicks [ %ircq.nicks ] %add.nick | set %disab.icq $addtok(%disab.icq,%add.nick,32) | .auser ircq %add.nick | .notify %add.nick | inicio | icqn | icqn2 
alias ircqnotice .notice $1 $?="enter message:"

dialog ircq {
  title "ircq"
  size -1 -1 187 301
  tab "offline", 3, 8 8 172 292
  tab "online", 2
  tab "options", 4
  box "users online", 5, 16 39 155 248, tab 2
  button "message..", 7, 24 224 72 16, tab 2
  button "notice..", 8, 24 240 72 16, tab 2
  button "info..", 9, 96 240 72 16, tab 2
  button "dcc send", 10, 96 224 72 16, tab 2
  box "users offline", 11, 16 39 155 248, tab 3
  button "message..", 13, 24 224 72 16, tab 3
  button "notice..", 14, 24 240 72 16, tab 3
  button "dcc send", 15, 96 224 72 16, tab 3
  button "info..", 16, 96 240 72 16, tab 3
  box "options for ircq", 17, 16 39 155 248, tab 4
  combo 18, 24 80 136 136, drop size tab 4
  button "inc user..", 19, 24 224 136 16, tab 4
  button "delete user..", 20, 24 240 136 16, tab 4
  list 12, 24 64 136 152, tab 3
  list 6, 24 56 136 160, tab 2
  text "select user..", 21, 24 64 64 16, tab 4
  button "close ircq", 22, 56 264 80 16, ok
}
on *:dialog:ircq:init:0:{ did -b ircq 13 | did -b ircq 14 | did -b ircq 15 | did -b ircq 16 | did -b ircq 7 | did -b ircq 8 | did -b ircq 9 | did -b ircq 10 | inicio | if ($server != $null) { icqn | icqn2 } | else { iniciodisc } }
on *:dialog:ircq:sclick:7:{ query $did(6,$did(6).sel) }
on *:dialog:ircq:sclick:8:{ ircqnotice $did(6,$did(6).sel) }
on *:dialog:ircq:sclick:9:{ whois $did(6,$did(6).sel) }
on *:dialog:ircq:sclick:10:{ set %ircq.dcc $did(6,$did(6).sel) | .timer 1 0 send %ircq.dcc }
on *:dialog:ircq:sclick:19:{ .timer 1 0 add.ircq }
on *:dialog:ircq:sclick:20:{ set %ircq.nicks $remtok(%ircq.nicks,$did(18,$did(18).sel),32) | set %disab.icq $remtok(%disab.icq,$did(18,$did(18).sel),32) | set %enab.ircq $remtok(%enab.ircq,$did(18,$did(18).sel),32) | .ruser ircq $did(18,$did(18).sel) | .notify -r $did(18,$did(18).sel) } | inicio | icqn | icqn2
on *:dialog:ircq:sclick:6:{ if ($did(6).sel) { did -e ircq 7 | did -e ircq 8 | did -e ircq 9 | did -e ircq 10 } }

